home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 98 / Skunkware 98.iso / src / mail / pine3.96.tar.gz / pine3.96.tar / pine3.96 / pine / osdep / canonicl.dos < prev    next >
Text File  |  1993-08-23  |  857b  |  32 lines
  1. /*----------------------------------------------------------------------
  2.        Return canonical form of host name ala c-client (UNIX version).
  3.  
  4.    Args: host      -- The host name
  5.  
  6.  Result: Canonical form, or input argument (worst case)
  7.  ----*/
  8. char *
  9. canonical_name(host)
  10.     char *host;
  11. {
  12. #if    defined(LWP) || defined(PCNFS) || defined(PCTCP)
  13.     struct hostent *hent;
  14.     char tmp[MAILTMPLEN];
  15.     extern char *lcase();
  16.                                 /* domain literal is easy */
  17.     if (host[0] == '[' && host[(strlen (host))-1] == ']')
  18.       return host;
  19.  
  20.                                 /* lookup name, return canonical form */
  21.     return (hent = gethostbyname (lcase (strcpy (tmp,host)))) ?
  22.       hent->h_name : host;
  23. #else
  24.     /* just return host, as gethostbyname equivalent isn't available
  25.      * under wattcp
  26.      */
  27.     return host;
  28. #endif
  29. }
  30.  
  31.  
  32.